- Canali
- Scripts
- Asp
- Invio emails
Inviare pagina html nel corpo dell'email
Inviare pagina html nel corpo dell'email
Come inviare una pagina html inglobata nell'email.
Impostando la pagina html presente in un sito web, la si può inviare via email all'indirizzo che vogliamo:
<%
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
' Oppure, per la versione 3.0 di XMLHTTP, usare:
' Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP")
' Apri la connessione remota
xml.Open "GET", "http://www.tuosito.ext/pagina.ext", False
' Spedisci la richiesta
xml.Send
Dim miaMail
Set miaMail = CreateObject("CDONTS.NewMail")
miaMail.From = "mittente@dominio.ext"
miaMail.To = "destinatario@dominio.ext"
miaMail.Subject = "Oggetto del messaggio"
miaMail.BodyFormat = 0
miaMail.MailFormat = 0
miaMail.Importance = 0
miaMail.Body = xml.responseText
miaMail.Send
Set miaMail = Nothing
Set xml = Nothing
%>
<%
Dim myMail
Set myMail = CreateObject("CDONTS.NewMail")
Set objMail = CreateObject("CDONTS.NewMail")
objMail.Attachurl Server.MapPath("/images/img.jpg"), "img.jpg"
HTML = "<html><head>" &_
"<meta http-equiv=""Content-Type"" content=""text/html; charset=iso-8859-1"">" &_
"<title>Esempio email</title>"&_
"</head>" &_
"<body bgcolor=""#FFFFFF"">" &_
"<table border=""1""><tr><td><img src=""img.jpg""></td></tr></table>" &_
"Questo è un'esempio di email con corpo html. <BR>" &_
"</body>" &_
"</html>"
objMail.From = "email@prova.it"
objMail.To = "emailto@prova.it"
objMail.Subject = "Email di prova"
objMail.BodyFormat = 0
objMail.MailFormat = 0
objMail.Body = HTML
objMail.Send()
Set objMail = Nothing
response.write html
response.write"E-mail inviata"
%>
animali, script, meteo, foto, cerca lavoro, video, comici, pele, free, ferrari, incidenti, download, lamborghini, del piero, scripts, programmazione, auto, cap, asp, shumacher
